<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<style type="text/css">
<!--


.NormalTex {
	font-family: Arial, Helvetica, sans-serif;
	font-size: 13px;
	color: #333;
	text-align: left;
}
-->
</style>

<script> 
function cerrarse(){ 
window.close() 
} 
</script> 
<%

var_asp15 = request("varia1")' nombre1

var_asp13 = request("varia2")' nombre1
var_asp14 = request("varia3")' nombre2

var_asp16 = request("varia4")' nombre1
var_asp17 = request("varia5")' nombre2
var_asp18 = request("varia6")' nombre1




var_asp = request("varia7")  ' potencia
var_asp1 = request("varia8")  ' longitud
var_asp2 = request("varia9")' artef 1  bc
var_asp3 = request("varia10") ' artef 2  bd
var_asp4 = request("varia11")  ' artef 3  be
var_asp5 = request("varia12")  'tramo ab
var_asp6 = request("varia13") ' tramo bc
var_asp7 = request("varia14")  ' tramo bd
var_asp8 = request("varia15")  ' tramo be
var_asp9 = request("varia17")   ' dia ab
var_asp10 = request("varia18") ' dia bc
var_asp11 = request("varia19")  ' dia bd
var_asp12 = request("varia20")  ' dia be

var_asp21 = request("varia21") 
var_asp22 = request("varia22") 
var_asp23 = request("varia23") 
var_asp24 = request("varia24") 



Dim fechaactual,d,m,a
fechaactual = Date()


d=Day(fechaactual)
m=Month(fechaactual)
a=Year(fechaactual)

fec=d&"/"&m&"/"&a&"-"&var_asp15
%>
<!--#include file="cnxBd.asp"-->
<%
	
	
	
'strSQL = "insert into instaladores (direccionp,nombre,resultado) values ('" & dato1 & "','" & dato2 & "','" & dato3 & "')" 

strSQL = "insert into calc_instaladores3c (nregistro,nombre1,nombre2,numdirec,disdirec,direccion2,num2,medidor,regulador,coding,art1,tramobc,diambc,art2,tramobd,diambd,art3,tramobe,diambe,tramoab,diamab,potencian,longe,fecha) values ('" & fec & "','" & var_asp14 & "','" & var_asp13 & "','" & var_asp16 & "','" & var_asp17 & "','" & var_asp18 & "','" & var_asp21 & "','" & var_asp22 & "','" & var_asp23 & "','" & var_asp24 & "','" & var_asp2 & "','" & var_asp6 & "','" & var_asp10 & "','" & var_asp3 & "', '" & var_asp7 & "','" & var_asp11 & "','" & var_asp4 & "','" & var_asp8 & "','" & var_asp12 & "','" & var_asp5 & "','" & var_asp9 & "','" & var_asp & "','" & var_asp1 & "','"&a&"/"&m&"/"&d&"')" 
   
    Conn.Execute(strSQL) 


   Conn.Close 
   set Conn = nothing 
   'Response.Redirect("ejem07d.asp") 
  
%>

<table width="532" border="0" cellspacing="0" cellpadding="0">
<tr>
    <td height="100" colspan="2" class="NormalTex" align="left" valign="top"><img src="logo.jpg"  border="0"/> </td>
    
  </tr>
<tr>
    <td height="37" colspan="2" class="NormalTex">Valores  para el CASO 3, fueron registrados : </td>
    
  </tr>
 
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td class="NormalTex"><input type=button value="Cerrar" onclick="cerrarse()"></td>
  </tr>
</table>